home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5010.txt < prev    next >
Encoding:
Text File  |  1994-03-01  |  861 b   |  33 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:x=2:c$=CHR$(5)
  3. 20 CLS:PRINT"Prime factors    (2óBase<10Çø)";:a$=" *"
  4. 40 LOCATE0,1:PRINTc$;"Base ?";:INPUT@11;x:LOCATE0,0
  5. 45 IFx<2 ORx>=1e10 ORFRACx<>0 THEN40
  6. 50 LOCATE0,1:PRINTc$;x;"= .....";
  7. 60 u=0:v=0:n=1:t$="":a=x
  8. 70 GOTO130
  9. 100 u=2:GOSUB500
  10. 110 a=a/2
  11. 120 IFa-1=0 THEN240
  12. 130 IFFRAC(a/2)=0 THEN100
  13. 140 b=3
  14. 150 c=SQRa+1
  15. 160 IFb>=c THEN230
  16. 170 IFFRAC(a/b)=0 THEN190
  17. 180 b=b+2:GOTO160
  18. 190 IFa/b*b-a=0 THEN210
  19. 200 GOTO180
  20. 210 u=b:GOSUB500
  21. 220 a=a/b:GOTO150
  22. 230 u=a:GOSUB500
  23. 240 a$="":GOSUB530
  24. 250 PRINTc$;x;"=";t$;:z$=INPUT$(1,@):GOTO20
  25. 500 IFv=u THENn=n+1:GOTO550
  26. 520 IFv=0 THEN550
  27. 530 IFn>1 THENt$=t$+STR$(v)+"^"+MID$(STR$(n),2)+a$ ELSEt$=t$+STR$(v)+a$
  28. 540 n=1
  29. 550 v=u:RETURN
  30. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  31. 1010 IFERL=40 THENRESUME40
  32. 1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
  33.